VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CUsuario"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit

Dim LUsuario As New LUsuario
Dim lEstado As New lEstado
Dim LPerfil As New LPerfil

Public Function getLista() As Collection
Dim bean As New bUsuario
bean.bEstado.nCodigo = UtilConstantes.ESTADO_USUARIO_ACTIVO
Set getLista = LUsuario.getLista(bean)
End Function

Public Function eliminar(bUsuario As bUsuario)
eliminar = LUsuario.eliminar(bUsuario)
If eliminar = UtilConstantes.OPT_ERROR_ENCONTRADO Then
    utilMensaje.muestraMensaje registroNoEliminado
End If

End Function


Public Sub mostrarNuevo()
Dim frm As New frmEntrarUsuario
frm.modo = UtilConstantes.MODO_NUEVO
Set frm.listaEstado = lEstado.getEstadosUsuario
Set frm.ListaPerfil = LPerfil.getLista
frm.Show 1
End Sub

Public Sub mostrarActualizar(bean As bUsuario)
Dim frm As New frmEntrarUsuario
frm.modo = UtilConstantes.MODO_ACTUALIZAR

Set frm.listaEstado = lEstado.getEstadosUsuario
Set frm.ListaPerfil = LPerfil.getLista
Set frm.bean = bean
frm.Show 1
End Sub

Public Function guardarNuevo(bean As bUsuario) As Integer
guardarNuevo = LUsuario.guardarNuevo(bean)
End Function
Public Function actualizar(bean As bUsuario) As Integer
actualizar = LUsuario.actualizar(bean)
If Not actualizar = UtilConstantes.OPT_DATOS_GUARDADOS Then
    utilMensaje.muestraMensaje errorEncontrado
End If
End Function

Public Sub login(bean As bUsuario)
Select Case LUsuario.login(bean)
Case UtilConstantes.OPT_LOGIN
    frmPrincipal.Show
    Unload frmLogin
Case UtilConstantes.OPT_LOGIN_CLAVE_INCORRECTA
    utilMensaje.muestraMensaje ClaveIncorrecta
Case UtilConstantes.OPT_LOGIN_CUENTA_DESHABILITADA
    utilMensaje.muestraMensaje CuentaDeshabilitada
End Select
End Sub




